perm filename TEST.LSP[F81,JMC] blob sn#620788 filedate 1981-10-27 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defun tak (m n p) (if (not (lessp n m))
C00003 ENDMK
CāŠ—;
(defun tak (m n p) (if (not (lessp n m))
		       p
		       (tak (tak (sub1 m) n p)
			    (tak (sub1 n) p m)
			    (tak (sub1 p) m n))))